home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / Calypso.sit / Connection Files / Generic IBX / Generic IBX
Encoding:
Text File  |  1992-09-29  |  8.3 KB  |  285 lines  |  [TEXT/GEOL]

  1. ! Generic IBX CCL
  2. ! This script has been modified from the Serial Tool IBX CCL for AppleLink and 
  3. ! may still contain references to AppleLink.  
  4. !It uses the modem pool attached to the IBX to make the connection
  5. ! You can use this script to establish a connection over the IBX (using the
  6. ! modem pool) to any kind of system. It does not make any attempt to send user 
  7. ! information  (username, password, etc, but this can be added by modifying the 
  8. ! section of code before the exit.  )
  9. !
  10. !------------------------------------------------------------------------------
  11. !---                        This is the disconnection code.                 ---
  12. !------------------------------------------------------------------------------
  13. !
  14. *-LABEL 0
  15. !*Debug_All
  16. !*MatchStr 1 1 NO
  17. !*Wait 800
  18. *CTBDown 5
  19. !
  20. *-LABEL 1
  21. *CTBClose
  22. *Exit 0
  23. !
  24. *-LABEL 5
  25. *Alert 5 The Comm Toolbox has closed before the Application could disconnect the modem. Please turn it off and then back on again to ensure disconnection from the network.
  26. *Exit 0
  27. !
  28. !------------------------------------------------------------------------------
  29. !---  This is the connection code. LABEL 0 configures AppleLink for         ---
  30. !---  communication. LABELs 1-25 are modem configuration and dialing.       ---
  31. !---  LABELs 30 through 38 are host connection. Do not change LABELs 30-38. ---
  32. !------------------------------------------------------------------------------
  33. !
  34. -LABEL 0
  35. !Debug_ON
  36. CanBtn 90
  37. !CheckPort 90
  38. NoCTB 54
  39. DsplyPic 1
  40. !
  41. !------This is where the CCL sets up and calls the CTB Tool---------
  42. !
  43. !  -Call the tool selected in the setup connection dialog
  44. IfEQJSR "Serial Tool" "~TOOL" 104
  45. CTBDown 58
  46. !
  47. DsplyMsg Establishing communication with the IBX…
  48. ChrDelay 0
  49. MatchStr 1 1 TIMEO
  50. MatchStr 2 12 E(T)       ! go directly to modem pool
  51. Wait 90
  52. !
  53. -LABEL 1
  54. Flush
  55. DTROff
  56. Pause 24
  57. DTROn
  58. MatchStr 1 1 TIMEO
  59. MatchStr 2 12 E(T)
  60. Wait 300
  61. IncVar 6
  62. IfVar 6 2 42
  63. DsplyMsg Cannot establish communication.  Trying again…
  64. Jump 1
  65. !
  66. !
  67. -LABEL 11
  68. DsplyPic 1
  69. SerReset 9600 0 8 1
  70. IncVar 6
  71. IfVar 6 5 49
  72. MatchStr 1 12 E(T) >
  73. DTROff
  74. Pause 24
  75. DTROn
  76. Wait 300
  77. Jump 11
  78. !
  79. -LABEL 12
  80. DsplyMsg Asking IBX to connect through modem pool…
  81. MatchStr 1 13 TYPE >
  82. Xmit T\13
  83. Wait 300
  84. Jump 11
  85. !
  86. -LABEL 13
  87. MatchStr 1 14 E(T) >
  88. Xmit 24\13
  89. Wait 300
  90. Jump 11
  91. !
  92. -LABEL 14
  93. MatchStr 1 15 BER >
  94. Xmit D\13
  95. Wait 300
  96. Jump 11
  97. !
  98. -LABEL 15
  99. MatchStr 1 16 INIT
  100. MatchStr 2 46 BUSY
  101. DsplyMsg Accessing modems…
  102. ChrDelay 5
  103. Xmit LINK\13
  104. Wait 300
  105. Jump 11
  106. !
  107. -LABEL 16
  108. SerReset 2400 0 8 1
  109. CanBtn 90
  110. !
  111. -LABEL 17
  112. Pause 15
  113. MatchStr 1 18 OK
  114. Xmit AT\92N0E0V1X4\13
  115. Wait 300
  116. Jump 11
  117. !
  118. -LABEL 18
  119. ChrDelay 2
  120. DsplyPic 2
  121. DsplyMsg Dialing the network number: ~FONE…
  122. MatchStr 1 43 NO CARR
  123. MatchStr 2 30 CONN
  124. MatchStr 3 19 ERROR
  125. MatchStr 4 44 BUSY
  126. Pause 30
  127. Xmit ATDT~FONE\13
  128. Wait 1800
  129. Jump 47
  130. !
  131. -LABEL 19
  132. IncVar 5
  133. IfVar 5 3 41
  134. DsplyMsg There has been an error in the modem pool; trying again…
  135. Jump 11
  136. !
  137. -LABEL 30
  138. DsplyMsg Connection established. 
  139. ! at this point if you were connecting to a specific system, you would
  140. ! continue the script to match specific things for logging on.
  141. Debug_off ! the script is done.
  142. EXIT 0  ! success
  143.  
  144. !
  145. !
  146. !------------------------------------------------------------------------------
  147. !---              LABELS 40 to 49 are IBX and Modem Pool errors.            ---
  148. !------------------------------------------------------------------------------
  149. !
  150. -LABEL 40
  151. Alert 90 The MKO Prompt is appearing, but the IBX is not responding to request for directory.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  152. Jump 93
  153. !
  154. -LABEL 41
  155. Alert 90 The modem pool is not accepting the AT dial string.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  156. Jump 93
  157. !
  158. -LABEL 42
  159. Alert 90 Unable to invoke the MKO prompt after repeated attempts. Please check all connections to the IBX.\13If the problem persists, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  160. Jump 93
  161. !
  162. -LABEL 43
  163. Alert 90 The phone system is reporting that the phone line to the modem in the modem pool is not staying connected.\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  164. Jump 93
  165. !
  166. -LABEL 44
  167. SetVar 6 0
  168. SetVar 5 0
  169. Alert 90 The telephone number you are dialing is busy.\13\13Click OK to try again.
  170. Jump 1
  171. !
  172. -LABEL 45
  173. Alert 90 The phone system is reporting DESTINATION ON HOOK error.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  174. Jump 93
  175. !
  176. -LABEL 46
  177. Alert 90 All of the modems in the modem pool are busy.\13\13Click OK to try again.
  178. Jump 93
  179. !
  180. -LABEL 47
  181. Alert 90 Either the network modem isn’t answering, or the network phone number “~FONE” is wrong.  Please check the number.\13If the problem persists, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  182. Jump 93
  183. !
  184. -LABEL 49
  185. Alert 90 Unable to establish connection through the modem pool.\13\13If the problem persists, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  186. Jump 93
  187. !
  188. !------------------------------------------------------------------------------
  189. !---                   LABELS 50 to 59 are set up errors.                   ---
  190. !------------------------------------------------------------------------------
  191. !
  192. !
  193. -LABEL 50
  194. Alert 90 An attempt to change a parameter within the Communications Toolbox has failed. 
  195. Jump 90
  196. !
  197. -LABEL 51
  198. Alert 90 There is a space or spaces in the AppleLink ID field (in the Connect dialog under the Network menu.  The space(s) might be before or after the AppleLink ID).\13\13Please tab to that field and retype your AppleLink ID without spaces.
  199. Jump 90
  200. !
  201. -LABEL 52
  202. Alert 90 There is a hyphen or hyphens in the AppleLink ID field (in the Connect dialog under the Network menu).\13\13Please tab to that field and retype your AppleLink ID without the hyphen(s).
  203. Jump 90
  204. !
  205. -LABEL 54
  206. Alert 90 The Communications Toolbox is not installed. You must have it installed properly to use this connection file.\13\13Click OK or Cancel to cancel.
  207. Jump 90
  208. !
  209. -LABEL 55
  210. Alert 90 An attempt to open the CTB connecetion failed during the opening of the ~TOOL. You must have CTB installed properly to use this connection file. Click OK or Cancel to cancel.
  211. Jump 90
  212. !
  213. -LABEL 56
  214. Alert 90 An attempt to open the ~TOOL failed. Make sure the CTB and ~TOOL is properly installed.\13\13Click OK or Cancel to cancel.
  215. Jump 90
  216. !
  217. -LABEL 57
  218. Alert 90 After repeated attempts, the CTB connection failed while accessing\13 the ~TOOL.\13\13Click OK or Cancel to cancel.
  219. Jump 90
  220. !
  221. -LABEL 58
  222. Alert 90 The ~TOOL connection has suddenly dropped.\13\13Click OK to try again.
  223. Jump 100
  224. !
  225. -LABEL 59
  226. Alert 90 The Serial Tool is not selected in the port selection field of the AppleLink setup dialog.  Please make this selection then try connecting again.\13\13Click OK or Cancel to cancel.
  227. Exit -1
  228. !
  229. !------------------------------------------------------------------------------
  230. !---     LABELS 60 to 69 are network node errors.                           ---
  231. !------------------------------------------------------------------------------
  232. !
  233. -LABEL 62
  234. Alert 90 The ~APPL host is not responding.\13If the problem continues, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  235. Jump 93
  236. !
  237. !------------------------------------------------------------------------------
  238. !---                            Disconnection logic.                        ---
  239. !------------------------------------------------------------------------------
  240. !
  241. -LABEL 90
  242. DsplyMsg Disconnecting…
  243. !DTROff
  244. Exit -1
  245. !
  246. -LABEL 93
  247. DsplyPic 0
  248. DsplyMsg Disconnecting…
  249. !DTROff
  250. Pause 24
  251. !DTROn
  252. SetVar 1 0
  253. SetVar 2 0
  254. SetVar 3 0
  255. SetVar 4 0
  256. SetVar 5 0
  257. SetVar 6 0
  258. SetVar 7 0
  259. Flush
  260. SerClose
  261. Jump 0
  262. !
  263. -LABEL 94
  264. DsplyMsg Disconnecting…
  265. Xmit STOP\13
  266. !DTROff
  267. Exit -1
  268. !
  269. -LABEL 104
  270. CTBTool 56 55 0 Serial Tool
  271. CTBParam 56 Baud 9600
  272. !
  273. !  -Set the Tool parameters. If param value contains a space, set value off    
  274. !   by enclosing it in quotes.  Remove exclaimation marks if you want to 
  275. !   hardcode the serial tool parameters.
  276. !CTBParam 56 Baud 9600 Parity None DataBits 8 StopBits 1 Handshake None Port !"Modem Port" HoldConnection False RemindDisconnect False
  277. !
  278. !  -Open the selected tool and set a condition if the CTB connection fails
  279. CTBOpen 1
  280. Alert 90 An attempt to open the CTB connection failed. The parameters may be set wrong. Click OK to set the parameters manually, or Cancel to cancel.
  281. CTBChoose
  282. CTBOpen 1
  283. Jump 57
  284. ###
  285.